home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib17.dsk / COPY CONVERT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  33 lines
  1. 10  TEXT : HOME 
  2. 20  IF  PEEK(64435) = 6  THEN PR = 1: GOTO 50
  3. 30  INPUT "WILL YOUR COMPUTER PRINT LOWER CASE? ";AN$: IF AN$ = "Y"  THEN PR = 1
  4. 40  HOME 
  5. 50  REM 
  6. 60  REM  COPY CONVERTER
  7. 70  REM  CHANGES LOWER CASE TO
  8. 80  REM  CAPS IF APPLE IS NOT
  9. 90  REM  MODEL //E
  10. 100  REM  OR CANNOT PRINT
  11. 110  REM  LOWER CASE
  12. 120  REM 
  13. 130  REM <CTRL-M>=================<CTRL-M>COPY FOLLOWS HERE<CTRL-M>=================<CTRL-M>
  14. 140 A$ = "This is a demo of how the lower case": GOSUB 270
  15. 150 A$ = "feature of the Apple //e and other ": GOSUB 270
  16. 160 A$ = "lower case adapters can be used in": GOSUB 270
  17. 170 A$ = "instructions within programs you write.": GOSUB 270
  18. 180 A$ = "All copy would be typed in capital and ": GOSUB 270
  19. 190 A$ = "lower case for those whose Apples can": GOSUB 270
  20. 200 A$ = "read copy in that manner, but will ": GOSUB 270
  21. 210 A$ = "translate everything else to upper": GOSUB 270
  22. 220 A$ = "case only for the folks with Apple IIs": GOSUB 270
  23. 230 A$ = "which only recognize capital letters.": GOSUB 270
  24. 240 A$ = "                           Paul Raymer": GOSUB 270
  25. 250  END 
  26. 260  REM <CTRL-M>============<CTRL-M>COPY CONVERT<CTRL-M>============<CTRL-M>
  27. 270  IF PR  THEN  PRINT A$: PRINT : RETURN 
  28. 280  FOR X = 1 TO  LEN(A$)
  29. 290  IF  ASC( MID$ (A$,X,1)) >90  THEN  PRINT  CHR$( ASC( MID$ (A$,X,1)) -32);: GOTO 310
  30. 300  PRINT  MID$ (A$,X,1);
  31. 310  NEXT X
  32. 320  PRINT : PRINT 
  33. 330  RETURN